Toolbox support. ( 080484 JWB) Copyright (c) 1984 John W. Baxter, 750 State St #224, San Diego,CA 92101. Permission granted for non-commerical use. Defining word for arbitrary toolbox traps. Defined in level 1 form, with a CODE definition shown in comments for convenience or for level 2 users. The specific toolbox trap defining words [ MT W>MT , etc] should be used where available, for efficiency and clarity. TOOLBOX will define any other call I am aware of. While the toolbox access included herein is believed to be correct, the reader is cautioned that, first, not all traps havebeen tested; and second that many of the toolbox calls are extremely dangerous (especially if improperly called!). Use expendable diskettes until satisified that a call is working. FIND W.DROP IFTRUE FORGET W.DROP IFEND DECIMAL 2 7 THRU ." Toolbox access included." ABORT ( W.DROP ) ( 080484 JWB) { CODE W.DROP ( ** | Drop 1/2 element from the stack! ) 2 # SP LONG ADDA, NEXT END-CODE } HEX CREATE W.DROP -2 ALLOT ( ** | Drop 1/2 element! ) DFFC W, 2 , 4ED4 W, DECIMAL { Note: with only the above, ANY toolbox trap can be created using MT, however, an explicit 0 will need to be pushed for functions, and 2-byte parameters will need to be cropped with W.DROP . Also, you must sign extend word function results if appropriate. These steps will appear in the source for EACH use of the traps. } ( Parameter and result type codes ) ( 080484 JWB) 0 CONSTANT W> ( Constants to mark expected parameters for ) 1 CONSTANT L> ( toolbox traps. Make a picture of the input.) 2 CONSTANT >W ( Mark functions with the >W or >L.) 3 CONSTANT >L 0 CONSTANT NO.FUNC >L 1+ CONSTANT PARAM.LIMIT ( Largest indicator ) : STOP B/BUF >IN ! ; IMMEDIATE ( Stops interpretation) ( NOTE: The opportunity exists to define more explicit parameters and results, in terms of the above. Example: W> CONSTANT INTEGER> ) ( Variables ) ( 080484 JWB) VARIABLE TOOL.BASE ( Address of first param or result code) VARIABLE TOOL.END ( Address of last param or result code ) VARIABLE TOOL.CUR ( Address of current param or result code ) VARIABLE TOOL.FUNC ( Address of result code, 0 if not func ) VARIABLE TOOL.WORK ( Work area to sign-extend ) TRACE @ TRACE OFF CREATE TOOL.CODE ( The code to execute: tt tt rr rr , where tt tt is the trap code, and rr rr is the NEXT code ) -2 ALLOT HEX 4ED4 ( NEXT ) , ( Set 00 00 rr rr ) TRACE ! ( TOOL.PART1 ) ( 080484 JWB) : TOOL.PART1 ( -- | Find & emplace executable code. Set TOOL.END for PART2 ) TOOL.BASE @ BEGIN DUP W@ PARAM.LIMIT < WHILE 2+ REPEAT DUP W@ ' TOOL.CODE 2- W! ( Emplace trapping opcode ) 2- TOOL.END ! ( Last param or result ) ; STOP The purpose of TOOL.PART1 is to find out how many parameter and result codes there are, and to emplace the trap code where it will be executed. The purpose of TOOL.PART2 is to 1) put a zero on the stack for functions, 2) to remove extra words from the stack for word parameters, and 3) to recordwhether a word-function is being performed. ( TOOL.PART2 ) ( 080584 JWB) : TOOL.PART2 ( ** -- ** | Adjust stack, per indicators. Enter with TOOL.END pointing at last code.) TOOL.BASE @ TOOL.CUR ! BEGIN TOOL.CUR @ TOOL.END @ > NOT WHILE TOOL.CUR @ W@ DUP CASE W> L> RANGE.OF DROP >R ENDOF >W >L RANGE.OF TOOL.FUNC ! ENDOF ENDCASE 2 TOOL.CUR +! REPEAT TOOL.FUNC @ NO.FUNC = NOT IF 0 ( result ) THEN BEGIN -2 TOOL.CUR +! TOOL.BASE @ TOOL.CUR @ > NOT WHILE TOOL.CUR @ W@ CASE W> OF R> W.DROP ENDOF L> OF R> ENDOF ENDCASE DEBUG @ IF .S THEN REPEAT ; ( TOOLBOX ) ( See narative screen for information ) : TOOLBOX ( trap picture -- | compile time ) ( parameters -- [result] | run time) ( Defining word for arbitrary Toolbox traps.) CREATE BEGIN DUP PARAM.LIMIT < WHILE W, REPEAT W, ( Copies indicators & trap code to parameter field ) DOES> TOOL.BASE ! NO.FUNC TOOL.FUNC ! TOOL.PART1 ( Scan to trap code and emplace 68K code.) TOOL.PART2 ( Adjust the stack ) TOOL.CODE ( Do the machine code ) TOOL.FUNC @ >W = IF TOOL.WORK ! TOOL.WORK <W@ THEN ; ( General toolbox trap) STOP ( 080484 JWB) This defining word is used to produce any Toolbox trap. Usage: At compile time, the trap code is put onto the stack, followed by a picture of the parameters of the trap [and its result, if a function]. At execute time, the parameters are put on the stack. Trap code: the trap code, from Inside Macintosh. Parameter picture: For each input, write L> for a 4-byte parameter, W> for a two-byte parameter. Function result code: Follow the parameter picture by >L for a 4-byte result, >W for a 2-byte result, which will be sign extended. {more}( General toolbox trap, continued) STOP ( 080484 JWB) For example, FindWindow is a function which takes a 4-byte point, and a 4-byte pointer to a window pointer result result, and returns a 2-byte integer result. The trap code is hex A92C This would be built as: HEX A92C L> L> >W TOOLBOX FindWindow and used as: X Y XY>POINT WINDOW.PTR FindWindow leaving the result on the Forth stack, and the returned window pointer in WINDOW.PTR . The function value is a small integer which indicates where the point is located. See Inside Macintosh, Window Manager, page 23 (in the Aug 25, '83 issue).
